home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 081-090 / amok81 / m2 / defs / inout.def < prev    next >
Text File  |  1993-11-04  |  1KB  |  44 lines
  1. DEFINITION MODULE InOut;
  2. (* jr/28mai87, cn/25juli87 bp/14aug90 *)
  3. (*$ LargeVars:=FALSE
  4.     LongAlign:=FALSE
  5.     NameChk:=FALSE
  6. *)
  7.  
  8. FROM SYSTEM IMPORT BYTE;
  9. IMPORT ASCII;
  10.  
  11. CONST
  12.  eol = ASCII.eol;
  13. VAR
  14.  done: BOOLEAN;
  15.  termCh: CHAR;
  16.  
  17. PROCEDURE OpenInput(defExt: ARRAY OF CHAR);
  18. PROCEDURE OpenOutput(defExt: ARRAY OF CHAR);
  19.  
  20. PROCEDURE SetInput(name:ARRAY OF CHAR);
  21. PROCEDURE SetOutput(name:ARRAY OF CHAR);
  22.  
  23. PROCEDURE CloseInput;
  24. PROCEDURE CloseOutput;
  25.  
  26. PROCEDURE Write(ch: CHAR);
  27. PROCEDURE WriteLn;
  28. PROCEDURE WriteString(str: ARRAY OF CHAR);
  29. PROCEDURE WriteInt(x: LONGINT; n: INTEGER);
  30. PROCEDURE WriteCard(x: LONGCARD; n: INTEGER);
  31. PROCEDURE WriteOct(x: LONGINT; n: INTEGER);
  32. PROCEDURE WriteHex(x: LONGINT; n: INTEGER);
  33. PROCEDURE WriteBytes(VAR blk: ARRAY OF BYTE);
  34.  
  35. PROCEDURE Read(VAR ch: CHAR);
  36. PROCEDURE ReadString(VAR str: ARRAY OF CHAR);
  37. PROCEDURE ReadInt(VAR x: INTEGER);
  38. PROCEDURE ReadLongInt(VAR x: LONGINT);
  39. PROCEDURE ReadCard(VAR x: CARDINAL);
  40. PROCEDURE ReadLongCard(VAR x: LONGCARD);
  41. PROCEDURE ReadBytes(VAR blk:ARRAY OF BYTE);
  42.  
  43. END InOut.def
  44.